home *** CD-ROM | disk | FTP | other *** search
/ Next Step: Mars? / Next Step Mars (1994)(IVI).iso / question.dir / 00315_Script_315 < prev    next >
Text File  |  1994-11-29  |  2KB  |  71 lines
  1. on Startmovie
  2.   global qtCastName,qtSprite ----,increment, L
  3.  
  4.   initSearchPath
  5.   set qtCastName = "Rubyshoe"
  6.   set qtSprite = 23
  7. end startup
  8.  
  9. on checkKey
  10.   if the key = RETURN then
  11.     if field "passwordbox" contains "plasma" then
  12.       go to frame "start"
  13.     else
  14.       go to frame "nopass"
  15.     end if
  16.     when keydown then nothing
  17.   end if
  18. end checkkey
  19.  
  20. on firstFrame
  21.   global qtSprite
  22.   set the movieRate of sprite qtSprite = 0
  23.   set the movieTime of sprite qtSprite = 0
  24. end firstFrame
  25.  
  26. on lastFrame
  27.   global qtSprite,qtcastname
  28.   set the movieTime of sprite qtSprite = the duration of cast qtcastName
  29. end lastFrame
  30.  
  31.  
  32. on stepFwdQT
  33.   global qtSprite,qtcastname
  34.   set the movieRate of sprite qtSprite = 0
  35.   if the movieTime of sprite qtSprite < the duration of cast qtcastname then
  36.     set the movieTime of sprite qtSprite = the movieTime of sprite qtSprite + 1
  37.   end if
  38. end stepFwdQT
  39.  
  40. on stepRevQT
  41.   global qtSprite
  42.   set the movieRate of sprite qtSprite = 0
  43.   if the movieTime of sprite qtSprite = 0 then exit
  44.   set the movieTime of sprite qtSprite = the movieTime of sprite qtSprite - 1
  45. end stepRevQT
  46.  
  47. on frameCounter
  48.   global qtSprite
  49.   set the text of cast "counter" to string(the movieTime of sprite qtSprite)
  50. end frameCounter
  51.  
  52. --on rewindQT
  53. global qtSprite
  54. set the movieRate of sprite qtSprite = -3
  55. --set the movieTime of sprite qtSprite = 0
  56. end rewindQT
  57.  
  58. on pauseQT
  59. global qtSprite
  60. set the movieRate of sprite qtsprite = 0
  61. end pauseQT
  62.  
  63. on playQT
  64. global qtSprite,qtcastName
  65. set the movieRate of sprite qtSprite = 1
  66. end playQT
  67.  
  68. on playQT2
  69. global qtSprite,qtcastName
  70. set the movieRate of sprite qtSprite = 1
  71. end playQT2